home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
CERFNET.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
67 lines
# Quarterdeck CERFnet login script
STRING username
STRING password
STRING ipframing
STRING ipaddr
SetTimeOut 90
CfgGetValue "Username" username
IF result = 0 THEN
GetInput "Enter your username:" username
IF result = 0 THEN
ABORT "Error. No username entered."
ENDIF
ENDIF
CfgGetValue "Password" password
IF result=0 THEN
GetPassword "Enter your password:" password
IF result = 0 THEN
ABORT "Error. No password entered."
ENDIF
ENDIF
CfgGetValue "Framing" ipframing
IF result=0 THEN
ABORT "Can't read 'Framing' setting from qdeck.ini"
ENDIF
CommWaitFor "Username: "
CommSend username
CommSend "%r"
CommWaitFor "Password: "
CommSend password
CommSend "%r"
# this is our terminal server prompt
CommWaitFor ">"
IF ipframing="MPSLIP" THEN
# cisco TS should auto-detect compressed SLIP packets
CommSend "slip default%r"
ELSE
# PPP is not supported at all of our POP sites, so this may fail...
IF ipframing="MPPPP" THEN
CommSend "ppp default%r"
ELSE
ABORT "Error. CERFnet does not support framing option:",ipframing,".%r"
ENDIF
ENDIF
CommWaitFor "Your IP address is "
CommReadIPAddr ipaddr
IF result>0 THEN
CfgSetValue "IPAddress" ipaddr
PRINT "%rIP address set to ["; ipaddr; "]"
ELSE
ABORT "Error. Can't read IP address."
ENDIF
END